home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / blender / blen40m / shared.dir / 00774.ls < prev    next >
Encoding:
Text File  |  1994-08-22  |  247 b   |  14 lines
  1. on mouseUp
  2.   global move, s, ADSET
  3.   sound playFile 2, "thfwz.AIF"
  4.   set move to 1
  5.   repeat with s = 48 down to 1
  6.     puppetSprite(s, 0)
  7.   end repeat
  8.   if the shiftDown = 0 then
  9.     go("OPEN", ADSET)
  10.   else
  11.     go("OPEN", "CONTENTS")
  12.   end if
  13. end
  14.